Function to generate a map
religion_map <- function(counties, religion, religion_id) {
headline <- ifelse(grepl("RATE", as.character(religion_id)), paste("Rate of", religion, "followers"), paste(religion, "followers"))
legend <- ifelse(grepl("RATE", as.character(religion_id)), paste(religion, "per 1,000 residents"), "Followers")
counties_sub <- counties
names(counties_sub)[names(counties_sub) == religion_id] <- 'for_map'
gg <- ggplot()
gg <- gg + geom_map(data=cmap, map=cmap,
aes(x=long, y=lat,map_id=id),
color="#2b2b2b", size=0.05, fill=NA)
gg <- gg + geom_map(data=counties_sub, map=cmap,
aes(fill=for_map, map_id=FIPS),
color="#2b2b2b", size=0.05)
gg <- gg + scale_fill_viridis(name=legend)
gg <- gg + coord_proj(us_laea_proj)
gg <- gg + labs(title=headline,
caption="TrendCT.org\nSOURCE: Association of Religion Data Archives 2010")
gg <- gg + theme_map(base_family="Arial Narrow")
gg <- gg + theme(legend.position=c(0.8, 0.25))
gg <- gg + theme(plot.title=element_text(face="bold", size=14, margin=margin(b=6)))
gg <- gg + theme(plot.subtitle=element_text(size=10, margin=margin(b=-14)))
gg
}
religion_map(counties, "Evangelicals", "EVANRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

# congregations: CTHCNG
# adherants: CTHADH
religion_map(counties, "Catholicism", "CTHRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

# Mainline protestant
religion_map(counties, "Mainline Protestant", "MPRTRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Episcopal", "ECRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

# United methodist church
religion_map(counties, "Methodist", "UMCRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

# American Baptist
religion_map(counties, "American Baptist", "ABCRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Southern Baptist", "SBCRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

# Evangelical Lutheran Church
religion_map(counties, "Lutheran", "ELCARATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Reform Judaism", "RFRMRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Conservative Judaism", "CJUDRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Muslim", "MSLMRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Greek Orthodox", "GRKRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead

religion_map(counties, "Buddhism", "BUDMRATE")
## Warning: Ignoring unknown aesthetics: x, y
## Warning: `panel.margin` is deprecated. Please use `panel.spacing` property
## instead
